


    *200                  / Set current assembly origin to program text area   
	HELLO,  CLA CLL       / Clear AC and Link (carry)            
	TAD (STRNG-1) / Set up string pointer in PRE-auto-increment register            
	DCA STPTR     /   :    
	NEXT,   CLA CLL       / Clear AC and Link again (needed when we loop back from tls)            
	TAD I STPTR   / Get next character, indirect via PRE-auto-increment address            
	SNA           / Skip if non-zero (not end of string)            
	HLT           / Else halt on zero (end of string)            
	TLS           / Output the character in the AC to the teleprinter            
	TSF           / Skip if teleprinter ready for character            
	JMP .-1       / Else jump back and try again            
	JMP NEXT      / Jump back for the next character


    STRNG,  310           / H            
	345           / e            
	354           / l            
	354           / l            
	357           / o            
	254           / ,            
	240           / (space)            
	367           / w            
	357           / o            
	362           / r            
	354           / l            
	344           / d            
	241           / !            
	0             / End of string
	
	*0010
  STPTR,    0           / an auto-increment register (one of eight at 10-17)
$